module parameters_mod
IMPLICIT NONE


INTEGER, parameter :: shocksN=10,kgridN = 175,KgridNegN=30,typesN=2,max_retire_working=35
INTEGER, parameter :: simulationsN=10000,levelN=9,slopeN=1,progressivityN=9
INTEGER, parameter ::  J=81, Jnr=47,max_tax_loop=1,max_outer_loops=325,max_non_clear=325
INTEGER :: household,rebate_to_old,negative_taxes,labor_capital_rebate_base,flat_tax,no_carbon_tax

DOUBLE PRECISION   :: kgrid(kgridN),epsilon1((Jnr-1),1),alpha1,alpha2,delta,ss_ig(typesN,shocksN/2), sigma1,sigma2,sigma3,sigmay,pe
DOUBLE PRECISION   :: beta,chi,theta,lambdaa,tauss,lambda,energy_share,taue,lambdak,lump_sum,lambda0_start,lambda1_start,ss_cap
DOUBLE PRECISION   :: lambda0,lambda1,lambda2,lambda0_1,tauss_ig,tauss1,gamma1,ebar,rebate_slope,rebate_level,&
    avg_earnings_scale,adult_equivalence(J),rebate_negative_tax
INTEGER ::  no_increase
!tr,
END module parameters_mod
